#!/usr/bin/perl

# $Id: ll.pl,v 1.4 2005/10/10 03:09:26 mfrumin Exp $
#
# This file is part of VGMap: http://vgmap.eyebeamresearch.org
#
# Distributed under the Gnu Public License, see LICENSE
#
# Copyright Copyright 2005 Michael Frumin
# mfrumin@eyebeam.org, http://eyebeam.org



# This is just an example Perl script that uses te SWF::Builder to 
# compile some ActionScript into a functioning SWF file, without
# using the Macromedia Flash MX Authoring Environment.
#
# Most of the good juice in this example is in the ll.as file

use strict;
use SWF::Builder;

use constant DIM => 10;
our $XDIM = DIM;
our $YDIM = DIM;

my $movie = SWF::Builder->new
    ( FrameRate => 100,
      FrameSize => [0, 0, $XDIM, $YDIM],
      BackgroundColor => 'ffffff'
      );

my $as = $movie->frame_action(1);

$as->load('ll.as');

$movie->save("ll.swf");    

